<%'注册
if request.querystring("type")="reg" then
username1=trim(request.form("username"))
password1=trim(request.form("password"))
password_a1=trim(request.form("password_a"))
email1=trim(request.form("email"))
question1=trim(request.form("question"))
answer1=trim(request.form("answer"))
sex1=trim(request.form("sex"))
birth1=trim(request.form("birth"))
about1=trim(request.form("about"))
address1=trim(request.form("address"))
tel1=trim(request.form("tel"))
qq1=trim(request.form("qq"))
website1=trim(request.form("website"))
time1=now()
if username1<>"" or password1<>"" or password_a1<>"" or email1<>"" then
set rs1=server.createobject("adodb.recordset")
sql="select username from web_register where username='"&username1&"'"
rs1.open(sql),cn,1,1
if not rs1.eof then
response.write ""
else
if password1<>password_a1 then
response.write ""
else
set rs=server.createobject("adodb.recordset")
sql="select * from web_register"
rs.open(sql),cn,1,3
rs.addnew
rs("username")=username1
rs("password")=md5(password1,16)
rs("password_a")=md5(password1,16)
rs("email")=email1
rs("question")=question1
rs("answer")=answer1
rs("sex")=sex1
if birth1<>"" then
rs("birth")=birth1
end If
rs("about")=about1
rs("address")=address1
rs("tel")=tel1
rs("qq")=qq1
rs("website")=website1
rs("time")=time1
rs.update
rs.close
set rs=nothing
response.write ""
end if
end if
rs1.close
set rs1=nothing
else
response.write ""
end if
end if
%>
会员注册_$web_name$
，欢迎光临！